From: Jason Rumney <jasonr@gnu.org>
Date: Mon, 6 Apr 2009 14:54:36 +0000 (+0000)
Subject: (x_set_font): Avoid C99 mid-block variable declaration.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~948
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a8a10d64433f314422ea8821f32c0e6e82738c8a;p=emacs.git

(x_set_font): Avoid C99 mid-block variable declaration.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index d1dcba34236..bf77101b79b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-06  Jason Rumney  <jasonr@gnu.org>
+
+	* frame.c (x_set_font): Avoid C99 mid-block variable declaration.
+
 2009-04-06  Kenichi Handa  <handa@m17n.org>
 
 	* ftxfont.c (ftxfont_draw_backgrond): Fix args to XFillRectangle.
diff --git a/src/frame.c b/src/frame.c
index 1a110219e6a..80a691e35fd 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -3367,9 +3367,8 @@ x_set_font (f, arg, oldval)
      struct frame *f;
      Lisp_Object arg, oldval;
 {
-  Lisp_Object frame;
+  Lisp_Object frame, font_object, lval;
   int fontset = -1;
-  Lisp_Object font_object;
 
   /* Set the frame parameter back to the old value because we may
      fail to use ARG as the new parameter value.  */
@@ -3427,7 +3426,7 @@ x_set_font (f, arg, oldval)
     return;
 
   
-  Lisp_Object lval = Fassq (Qfullscreen, f->param_alist);
+  lval = Fassq (Qfullscreen, f->param_alist);
   if (CONSP (lval)) lval = CDR (lval);
 
   x_new_font (f, font_object, fontset);